﻿Imports System.Data.SqlClient
Module SQL
    Public Function connection() As SqlConnection
        Dim cn As New SqlConnection
        cn.ConnectionString = "server=. ; uid=sa; pwd=123; database=SaleDB;"
        cn.Open()
        Return cn
    End Function

End Module
